home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / univspl / uspl.h < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-28  |  44.1 KB  |  806 lines
  1. #ifndef _EMUDLL_H
  2. #define _EMUDLL_H
  3.  
  4. #ifdef USPL_DLL_EXPORTS
  5. #define EXP __declspec(dllexport)
  6. #elif defined USPL_DLL_IMPORTS
  7. #define EXP __declspec(dllimport)
  8. #else
  9. #define EXP
  10. #endif
  11.  
  12. #ifdef  __cplusplus
  13. extern "C" {
  14. #endif
  15.  
  16. /* Defines for remez */
  17. #define BANDPASS       1
  18. #define DIFFERENTIATOR 2
  19. #define HILBERT        3
  20.  
  21. #define NEGATIVE       0
  22. #define POSITIVE       1
  23.  
  24. #define Pi             3.1415926535897932
  25. #define Pi2            6.2831853071795865
  26.  
  27. #define GRIDDENSITY    16
  28. #define MAXITERATIONS  40
  29.  
  30.  
  31. /*
  32.  *  Prototypes
  33.  */
  34.  
  35.  /* Notes 1. I think some routines still may need upgrading from int to long
  36.           2. Some routines are using the non_ routines as default (esp ffts)
  37.           3. Should integer vector shift routines use long or ulong??
  38.  */
  39.  
  40. /* Section 1 non-exported functions (internal only) */
  41.  
  42. /* Section 2 exported UC functions */
  43.  
  44. void EXP acorf_(float rv1[], float rvo[], long *no, long *n1);
  45. void EXP acorf(float rv1[], float rvo[], long no, long n1);
  46.  
  47. void EXP acort_(float rv1[], float rvo[], long *no, long *n1);
  48. void EXP acort(float rv1[], float rvo[], long no, long n1);
  49.  
  50. void EXP aspec_(float cv1[], long *inc1, float rvio[], long *inco, long *n);
  51. void EXP aspec(float cv1[], long inc1, float rvio[], long inco, long n);
  52.  
  53. void EXP blkman_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  54. void EXP blkman(float rv1[], long inc1, float rvo[], long inco, long n);
  55.  
  56. void EXP ccdotp_(float cv1[], long *inc1, float cv2[], long *inc2, float cso[], long *n);
  57. void EXP ccdotp(float cv1[], long inc1, float cv2[], long inc2, float cso[], long n);
  58.  
  59. void EXP ccorf_(float rv1[], float rv2[], float rvo[], long *no, long *n1);
  60. void EXP ccorf(float rv1[], float rv2[], float rvo[], long no, long n1);
  61.  
  62. void EXP ccort_(float rv1[], float rv2[], float rvo[], long *no, long *n1);
  63. void EXP ccort(float rv1[], float rv2[], float rvo[], long no, long n1);
  64.  
  65. void EXP cdotpr_(float cv1[], long *inc1, float cv2[], long *inc2, float cso[], long *n);
  66. void EXP cdotpr(float cv1[], long inc1, float cv2[], long inc2, float cso[], long n);
  67.  
  68. void EXP cfft_(float cv[], long *nr, long *flg);
  69. void EXP cfft(float cv[], long n, long f);
  70.  
  71. void EXP cfftf_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  72. void EXP cfftf(float cv1[], long inc1, float cvo[], long inco, long n);
  73.  
  74. void EXP cffti_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  75. void EXP cffti(float cv1[], long inc1, float cvo[], long inco, long n);
  76.  
  77. void EXP cfftsc_(float cvio[], long *n);
  78. void EXP cfftsc(float cvio[], long n);
  79.  
  80. void EXP cft2fc_(float cv1[], float cvo[], long *nr, long *nc);
  81. void EXP cft2fc(float cv1[], float cvo[], long nr, long nc);
  82.  
  83. void EXP cft2fr_(float cv1[], float cvo[], long *nr, long *nc);
  84. void EXP cft2fr(float cv1[], float cvo[], long nr, long nc);
  85.  
  86. void EXP cft2ic_(float cv1[], float cvo[], long *nr, long *nc);
  87. void EXP cft2ic(float cv1[], float cvo[], long nr, long nc);
  88.  
  89. void EXP cft2ir_(float cv1[], float cvo[], long *nr, long *nc);
  90. void EXP cft2ir(float cv1[], float cvo[], long nr, long nc);
  91.  
  92. void EXP convd_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *no, long *n2, long *ndf);
  93. void EXP convd(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long no, long n2, long ndf);
  94.  
  95. void EXP cpow_(float cv1[], long *inc1, float *rs1, float rv[], long *inc2, float *rs2, float rvo[], long *inco, long *n);
  96. void EXP cpow(float cv1[], long inc1, float *rs1, float rv[], long inc2, float *rs2, float rvo[], long inco, long n);
  97.  
  98. void EXP crvdiv_(float cv1[], long *inc1, float rv2[], long *inc2, float cvo[], long *inco, long *n);
  99. void EXP crvdiv(float cv1[], long inc1, float rv2[], long inc2, float cvo[], long inco, long n);
  100.  
  101. void EXP crvmul_(float cv1[], long *inc1, float rv2[], long *inc2, float cvo[], long *inco, long *n);
  102. void EXP crvmul(float cv1[], long inc1, float rv2[], long inc2, float cvo[], long inco, long n);
  103.  
  104. void EXP cspec_(float cv1[], float cv2[], float cvo[], long *n);
  105. void EXP cspec(float cv1[], float cv2[], float cvo[], long n);
  106.  
  107. void EXP cvabs_(float cv1[], long *inc1, float rvo[], long *inco, long *n);
  108. void EXP cvabs(float cv1[], long inc1, float rvo[], long inco, long n);
  109.  
  110. void EXP cvadd_(float cv1[], long *inc1, float cv2[], long *inc2, float cvo[], long *inco, long *n);
  111. void EXP cvadd(float cv1[], long inc1, float cv2[], long inc2, float cvo[], long inco, long n);
  112.  
  113. void EXP cvcml_(float cv1[], long *inc1, float cv2[], long *inc2, float cvo[], long *inco, long *n);
  114. void EXP cvcml(float cv1[], long inc1, float cv2[], long inc2, float cvo[], long inco, long n);
  115.  
  116. void EXP cvcmla_(float cv1[], long *inc1, float cv2[], long *inc2, float cv3[], long *inc3, float cvo[], long *inco, long *n);
  117. void EXP cvcmla(float cv1[], long inc1, float cv2[], long inc2, float cv3[], long inc3, float cvo[], long inco, long n);
  118.  
  119. void EXP cvcomb_(float rv1[], long *inc1, float rv2[], long *inc2, float cvo[], long *inco, long *n);
  120. void EXP cvcomb(float rv1[], long inc1, float rv2[], long inc2, float cvo[], long inco, long n);
  121.  
  122. void EXP cvconj_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  123. void EXP cvconj(float cv1[], long inc1, float cvo[], long inco, long n);
  124.  
  125. void EXP cvcsml_(float cv1[], long *inc1, float cs1[2], float cvo[], long *inco, long *n);
  126. void EXP cvcsml(float cv1[], long inc1, float cs1[2], float cvo[], long inco, long n);
  127.  
  128. void EXP cvdiv_(float cv1[], long *inc1, float cv2[], long *inc2, float cvo[], long *inco, long *n);
  129. void EXP cvdiv(float cv1[], long inc1, float cv2[], long inc2, float cvo[], long inco, long n);
  130.  
  131. void EXP cvexp_(float rv1[], long *inc1, float cvo[], long *inco, long *n);
  132. void EXP cvexp(float rv1[], long inc1, float cvo[], long inco, long n);
  133.  
  134. void EXP cvfill_(float cs1[2], float cvo[], long *inco, long *n);
  135. void EXP cvfill(float cs1[2], float cvo[], long inco, long n);
  136.  
  137. void EXP cvma_(float cv1[], long *inc1, float cv2[], long *inc2, float cv3[], long *inc3, float cvo[], long *inco, long *n, long *flg);
  138. void EXP cvma(float cv1[], long inc1, float cv2[], long inc2, float cv3[], long inc3, float cvo[], long inco, long n, long flg);
  139.  
  140. void EXP cvmags_(float cv1[], long *inc1, float rvo[], long *inco, long *n);
  141. void EXP cvmags(float cv1[], long inc1, float rvo[], long inco, long n);
  142.  
  143. void EXP cvmexp_(float rv1[], long *inc1, float rv2[], long *inc2, float cvo[], long *inco, long *n);
  144. void EXP cvmexp(float rv1[], long inc1, float rv2[], long inc2, float cvo[], long inco, long n);
  145.  
  146. void EXP cvmgsa_(float cv1[], long *inc1, float rv1[], long *inc2, float rvo[], long *inco, long *n);
  147. void EXP cvmgsa(float cv1[], long inc1, float rv1[], long inc2, float rvo[], long inco, long n);
  148.  
  149. void EXP cvml_(float cv1[], long *inc1, float cv2[], long *inc2, float cvo[], long *inco, long *n);
  150. void EXP cvml(float cv1[], long inc1, float cv2[], long inc2, float cvo[], long inco, long n);
  151.  
  152. void EXP cvmla_(float cv1[], long *inc1, float cv2[], long *inc2, float cv3[], long *inc3, float cvo[], long *inco, long *n);
  153. void EXP cvmla(float cv1[], long inc1, float cv2[], long inc2, float cv3[], long inc3, float cvo[], long inco, long n);
  154.  
  155. void EXP cvmov_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  156. void EXP cvmov(float cv1[], long inc1, float cvo[], long inco, long n);
  157.  
  158. void EXP cvmul_(float cv1[], long *inc1, float cv2[], long *inc2, float cvo[], long *inco, long *n, long *flg);
  159. void EXP cvmul(float cv1[], long inc1, float cv2[], long inc2, float cvo[], long inco, long n, long flg);
  160.  
  161. void EXP cvneg_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  162. void EXP cvneg(float cv1[], long inc1, float cvo[], long inco, long n);
  163.  
  164. void EXP cvphas_(float cv1[], long *inc1, float rvo[], long *inco, long *n);
  165. void EXP cvphas(float cv1[], long inc1, float rvo[], long inco, long n);
  166.  
  167. void EXP cvrcip_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  168. void EXP cvrcip(float cv1[], long inc1, float cvo[], long inco, long n);
  169.  
  170. void EXP cvreal_(float rv1[], long *inc1, float cvo[], long *inco, long *n);
  171. void EXP cvreal(float rv1[], long inc1, float cvo[], long inco, long n);
  172.  
  173. void EXP cvsma_(float cv1[], long *inc1, float cs1[2], float cv2[], long *inc2, float cvo[], long *inco, long *n);
  174. void EXP cvsma(float cv1[], long inc1, float cs1[2], float cv2[], long inc2, float cvo[], long inco, long n);
  175.  
  176. void EXP cvsmul_(float cv1[], long *inc1, float *rs1, float cvo[], long *inco, long *n);
  177. void EXP cvsmul(float cv1[], long inc1, float *rs1, float cvo[], long inco, long n);
  178.  
  179. void EXP cvsqrt_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  180. void EXP cvsqrt(float cv1[], long inc1, float cvo[], long inco, long n);
  181.  
  182. void EXP cvsub_(float cv1[], long *inc1, float cv2[], long *inc2, float cvo[], long *inco, long *n);
  183. void EXP cvsub(float cv1[], long inc1, float cv2[], long inc2, float cvo[], long inco, long n);
  184.  
  185. void EXP deq22_(float rv1[], long *inc1, float rv2[], float rvo[], long *inco, long *n);
  186. void EXP deq22(float rv1[], long inc1, float rv2[], float rvo[], long inco, long n);
  187.  
  188. void EXP dotpr_(float rv1[], long *inc1, float rv2[], long *inc2, float *rso, long *n);
  189. void EXP dotpr(float rv1[], long inc1, float rv2[], long inc2, float *rso, long n);
  190.  
  191. void EXP envel_(float rv1[], float rvo[], long *n);
  192. void EXP envel(float rv1[], float rvo[], long n);
  193.  
  194. void EXP fftwts_(float cvo[], long *m, long *n);
  195. void EXP fftwts(float cvo[], long m, long n);
  196.  
  197. void EXP fix2n_(float rv1[], long *inc1, short svo[], long *inco, long *n);
  198. void EXP fix2n(float rv1[], long inc1, short svo[], long inco, long n);
  199.  
  200. void EXP fix4_(float rv1[], long *inc1, long ivo[], long *inco, long *n);
  201. void EXP fix4(float rv1[], long inc1, long ivo[], long inco, long n);
  202.  
  203. void EXP fix4n_(float rv1[], long *inc1, long ivo[], long *inco, long *n);
  204. void EXP fix4n(float rv1[], long inc1, long ivo[], long inco, long n);
  205.  
  206. void EXP fixbn_(float rv1[], long *inc1, unsigned char bvo[], long *inco, long *n);
  207. void EXP fixbn(float rv1[], long inc1, unsigned char bvo[], long inco, long n);
  208.  
  209. void EXP flt2_(short sv1[], long *inc1, float rvo[], long *inco, long *n);
  210. void EXP flt2(short sv1[], long inc1, float rvo[], long inco, long n);
  211.  
  212. void EXP flt2iq_(short sv1[], long *inc1, float cvo1[], float cvo2[], long *n);
  213. void EXP flt2iq(short sv1[], long inc1, float cvo1[], float cvo2[], long n);
  214.  
  215. void EXP flt4_(long iv1[], long *inc1, float rvo[], long *inco, long *n);
  216. void EXP flt4(long iv1[], long inc1, float rvo[], long inco, long n);
  217.  
  218. void EXP fltb_(char bv1[], long *inc1, float rvo[], long *inco, long *n);
  219. void EXP fltb(char bv1[], long inc1, float rvo[], long inco, long n);
  220.  
  221. void EXP fltbu_(unsigned char bv1[], long *inc1, float rvo[], long *inco, long *n);
  222. void EXP fltbu(unsigned char bv1[], long inc1, float rvo[], long inco, long n);
  223.  
  224. void EXP fxsl2n_(float rv1[], long *inc1, float *rs1, float *rs2, short svo[], long *inco, long *n);
  225. void EXP fxsl2n(float rv1[], long inc1, float *rs1, float *rs2, short svo[], long inco, long n);
  226.  
  227. void EXP fxsl4n_(float rv1[], long *inc, float *rs1, float *rs2, long ivo[], long *inco, long *n);
  228. void EXP fxsl4n(float rv1[], long inc, float *rs1, float *rs2, long ivo[], long inco, long n);
  229.  
  230. void EXP fxslbn_(float rv1[], long *inc, float *rs1, float *rs2, unsigned char bvo[], long *inco, long *n);
  231. void EXP fxslbn(float rv1[], long inc, float *rs1, float *rs2, unsigned char bvo[], long inco, long n);
  232.  
  233. void EXP gcexp_(float cs1[], float cs2[], float cvo[], long *inco, long *n);
  234. void EXP gcexp(float cs1[], float cs2[], float cvo[], long inco, long n);
  235.  
  236. void EXP gcosf_(float rv1[], long *inc1, float *rs1, float *rs2, long *n);
  237. void EXP gcosf(float rv1[], long inc1, float *rs1, float *rs2, long n);
  238.  
  239. void EXP hamm_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  240. void EXP hamm(float rv1[], long inc1, float rvo[], long inco, long n);
  241.  
  242. void EXP hann_(float rv1[], long *inc1, float rvo[], long *inco, long *n, long *flg);
  243. void EXP hann(float rv1[], long inc1, float rvo[], long inco, long n, long flg);
  244.  
  245. void EXP hlbrt_(float rv1[], float rvo[], long *n);
  246. void EXP hlbrt(float rv1[], float rvo[], long n);
  247.  
  248. void EXP lveq_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  249. void EXP lveq(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  250.  
  251. void EXP lvge_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  252. void EXP lvge(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  253.  
  254. void EXP lvgt_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  255. void EXP lvgt(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  256.  
  257. void EXP lvle_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  258. void EXP lvle(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  259.  
  260. void EXP lvlt_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  261. void EXP lvlt(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  262.  
  263. void EXP lvne_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  264. void EXP lvne(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  265.  
  266. void EXP lvnot_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  267. void EXP lvnot(float rv1[], long inc1, float rvo[], long inco, long n);
  268.  
  269. void EXP maxmgv_(float rv1[], long *inc1, float *rso, long *idx, long *n);
  270. void EXP maxmgv(float rv1[], long inc1, float *rso, long *idx, long n);
  271.  
  272. void EXP maxv_(float rv1[], long *inc1, float *rso, long *idx, long *n);
  273. void EXP maxv(float rv1[], long inc1, float *rso, long *idx, long n);
  274.  
  275. void EXP meamgv_(float rv1[], long *inc1, float *rso, long *n);
  276. void EXP meamgv(float rv1[], long inc1, float *rso, long n);
  277.  
  278. void EXP meanv_(float rv1[], long *inc1, float *rso, long *n);
  279. void EXP meanv(float rv1[], long inc1, float *rso, long n);
  280.  
  281. void EXP measqv_(float rv1[], long *inc1, float *rso, long *n);
  282. void EXP measqv(float rv1[], long inc1, float *rso, long n);
  283.  
  284. void EXP minmgv_(float rv1[], long *inc1, float *rso, long *idx, long *n);
  285. void EXP minmgv(float rv1[], long inc1, float *rso, long *idx, long n);
  286.  
  287. void EXP minv_(float rv1[], long *inc1, float *rso, long *idx, long *n);
  288. void EXP minv(float rv1[], long inc1, float *rso, long *idx, long n);
  289.  
  290. void EXP mvessq_(float rv1[], long *inc1, float *rso, long *n);
  291. void EXP mvessq(float rv1[], long inc1, float *rso, long n);
  292.  
  293. void EXP mxmla_(float rm1[], long *incc1, long *incr1, float rm2[], long *incc2, long *incr2, float rmo[], long *incco, long *incro, long *nr, long *nc, long *ncr);
  294. void EXP mxmla(float rm1[], long incc1, long incr1, float rm2[], long incc2, long incr2, float rmo[], long incco, long incro, long nr, long nc, long ncr);
  295.  
  296. void EXP mxmls_(float rm1[], long *incc1, long *incr1, float rm2[], long *incc2, long *incr2, float rmo[], long *incco, long *incro, long *nr, long *nc, long *ncr);
  297. void EXP mxmls(float rm1[], long incc1, long incr1, float rm2[], long incc2, long incr2, float rmo[], long incco, long incro, long nr, long nc, long ncr);
  298.  
  299. void EXP mxmov_(float rm1[], long *incc1, long *incr1, float rmo[], long *incco, long *incro, long *nr, long *nc);
  300. void EXP mxmov(float rm1[], long incc1, long incr1, float rmo[], long incco, long incro, long nr, long nc);
  301.  
  302. void EXP mxmul_(float rm1[], long *incc1, long *incr1, float rm2[], long *incc2, long *incr2, float rmo[], long *incco, long *incro, long *nr, long *nc, long *ncr);
  303. void EXP mxmul(float rm1[], long incc1, long incr1, float rm2[], long incc2, long incr2, float rmo[], long incco, long incro, long nr, long nc, long ncr);
  304.  
  305. void EXP polar_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  306. void EXP polar(float cv1[], long inc1, float cvo[], long inco, long n);
  307.  
  308. void EXP rect_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  309. void EXP rect(float cv1[], long inc1, float cvo[], long inco, long n);
  310.  
  311. void EXP reqs_(float rv1[], long *inc1, float *rs1, long *n, long *idx);
  312. void EXP reqs(float rv1[], long inc1, float *rs1, long n, long *idx);
  313.  
  314. void EXP rfft_(float rvio[], long *n, long *flg);
  315. void EXP rfft(float rvio[], long n, long flg);
  316.  
  317. void EXP rfftf_(float rv1[], long *inc1, float cvo[], long *inco, float *rs1, long *n);
  318. void EXP rfftf(float rv1[], long inc1, float cvo[], long inco, float *rs1, long n);
  319.  
  320. void EXP rffti_(float cv1[], long *inc1, float *rs1, float rvo[], long *inco, long *n);
  321. void EXP rffti(float cv1[], long inc1, float *rs1, float rvo[], long inco, long n);
  322.  
  323. void EXP rfftsc_(float cvio[], long *n, long *flg1, long *flg2);
  324. void EXP rfftsc(float cvio[], long n, long flg1, long flg2);
  325.  
  326. void EXP rft2fc_(float rv1[], float cvn[], long *inc2, float cvo[], long *nr, long *nc);
  327. void EXP rft2fc(float rv1[], float cvn[], long inc2, float cvo[], long nr, long nc);
  328.  
  329. void EXP rft2fr_(float rv1[], float cvn[], long *inc2, float cvo[], long *nr, long *nc);
  330. void EXP rft2fr(float rv1[], float cvn[], long inc2, float cvo[], long nr, long nc);
  331.  
  332. void EXP rft2ic_(float cv1[], float cvn[], long *inc2, float rvo[], long *nr, long *nc);
  333. void EXP rft2ic(float cv1[], float cvn[], long inc2, float rvo[], long nr, long nc);
  334.  
  335. void EXP rft2ir_(float cv1[], float cvn[], long *inc2, float rvo[], long *nr, long *nc);
  336. void EXP rft2ir(float cv1[], float cvn[], long inc2, float rvo[], long nr, long nc);
  337.  
  338. void EXP rges_(float rv1[], long *inc1, float *rs1, long *n, long *idx);
  339. void EXP rges(float rv1[], long inc1, float *rs1, long n, long *idx);
  340.  
  341. void EXP rgts_(float rv1[], long *inc1, float *rs1, long *n, long *idx);
  342. void EXP rgts(float rv1[], long inc1, float *rs1, long n, long *idx);
  343.  
  344. void EXP rlts_(float rv1[], long *inc1, float *rs1, long *n, long *idx);
  345. void EXP rlts(float rv1[], long inc1, float *rs1, long n, long *idx);
  346.  
  347. void EXP rmax_(float rv1[], long *inc1, float *rso, long *idx, long *n);
  348. void EXP rmax(float rv1[], long inc1, float *rso, long *idx, long n);
  349.  
  350. void EXP rmaxmg_(float rv1[], long *inc1, float *rso, long *idx, long *n);
  351. void EXP rmaxmg(float rv1[], long inc1, float *rso, long *idx, long n);
  352.  
  353. void EXP rmin_(float rv1[], long *inc1, float *rso, long *idx, long *n);
  354. void EXP rmin(float rv1[], long inc1, float *rso, long *idx, long n);
  355.  
  356. void EXP rminmg_(float rv1[], long *inc1, float *rso, long *idx, long *n);
  357. void EXP rminmg(float rv1[], long inc1, float *rso, long *idx, long n);
  358.  
  359. void EXP rmsqv_(float rv1[], long *inc1, float *rso, long *n);
  360. void EXP rmsqv(float rv1[], long inc1, float *rso, long n);
  361.  
  362. void EXP rnes_(float rv1[], long *inc1, float *rs1, long *n, long *idx);
  363. void EXP rnes(float rv1[], long inc1, float *rs1, long n, long *idx);
  364.  
  365. void EXP rsve_(float rv1[], long *inc1, float *rs1, float rvo[], long *inco, long *no, long *nw);
  366. void EXP rsve(float rv1[], long inc1, float *rs1, float rvo[], long inco, long no, long nw);
  367.  
  368. void EXP shphu_(float rv1[], long *inc1, float *rs, float rvo[], long *inco, long *n);
  369. void EXP shphu(float rv1[], long inc1, float *rs, float rvo[], long inco, long n);
  370.  
  371. void EXP shphuf_(float rv1[], long *inc1, float *rs, float rvo[], long *inco, long *n);
  372. void EXP shphuf(float rv1[], long inc1, float *rs, float rvo[], long inco, long n);
  373.  
  374. void EXP sn2_(float rv1[], long *inc1, float rv2[], long *inc2, float *rso, long *n);
  375. void EXP sn2(float rv1[], long inc1, float rv2[], long inc2, float *rso, long n);
  376.  
  377. void EXP svdiv_(float *rs1, float rv1[], long *inc1, float rvo[], long *inco, long *n);
  378. void EXP svdiv(float *rs1, float rv1[], long inc1, float rvo[], long inco, long n);
  379.  
  380. void EXP sve_(float rv1[], long *inc1, float *rso, long *n);
  381. void EXP sve(float rv1[], long inc1, float *rso, long n);
  382.  
  383. void EXP svemg_(float rv1[], long *inc1, float *rso, long *n);
  384. void EXP svemg(float rv1[], long inc1, float *rso, long n);
  385.  
  386. void EXP svesq_(float rv1[], long *inc1, float *rso, long *n);
  387. void EXP svesq(float rv1[], long inc1, float *rso, long n);
  388.  
  389. void EXP svessq_(float rv1[], long *inc1, float *rso, long *n);
  390. void EXP svessq(float rv1[], long inc1, float *rso, long n);
  391.  
  392. void EXP tconv_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *no, long *n2, long *n1);
  393. void EXP tconv(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long no, long n2, long n1);
  394.  
  395. void EXP trans_(float rv1[], float cv1[], float cvo[], long *n);
  396. void EXP trans(float rv1[], float cv1[], float cvo[], long n);
  397.  
  398. void EXP vaam_(float rv1[], long *inc1, float rv2[], long *inc2, float rv3[], long *inc3, float rv4[], long *inc4, float rvo[], long *inco, long *n);
  399. void EXP vaam(float rv1[], long inc1, float rv2[], long inc2, float rv3[], long inc3, float rv4[], long inc4, float rvo[], long inco, long n);
  400.  
  401. void EXP vabs_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  402. void EXP vabs(float rv1[], long inc1, float rvo[], long inco, long n);
  403.  
  404. void EXP vacos_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  405. void EXP vacos(float rv1[], long inc1, float rvo[], long inco, long n);
  406.  
  407. void EXP vadd_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  408. void EXP vadd(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  409.  
  410. void EXP vaint_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  411. void EXP vaint(float rv1[], long inc1, float rvo[], long inco, long n);
  412.  
  413. void EXP vam_(float rv1[], long *inc1, float rv2[], long *inc2, float rv3[], long *inc3, float rvo[], long *inco, long *n);
  414. void EXP vam(float rv1[], long inc1, float rv2[], long inc2, float rv3[], long inc3, float rvo[], long inco, long n);
  415.  
  416. void EXP vanint_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  417. void EXP vanint(float rv1[], long inc1, float rvo[], long inco, long n);
  418.  
  419. void EXP vasbm_(float rv1[], long *inc1, float rv2[], long *inc2, float rv3[], long *inc3, float rv4[], long *inc4, float rvo[], long *inco, long *n);
  420. void EXP vasbm(float rv1[], long inc1, float rv2[], long inc2, float rv3[], long inc3, float rv4[], long inc4, float rvo[], long inco, long n);
  421.  
  422. void EXP vasin_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  423. void EXP vasin(float rv1[], long inc1, float rvo[], long inco, long n);
  424.  
  425. void EXP vasm_(float rv1[], long *inc1, float rv2[], long *inc2, float *rs1, float rvo[], long *inco, long *n);
  426. void EXP vasm(float rv1[], long inc1, float rv2[], long inc2, float *rs1, float rvo[], long inco, long n);
  427.  
  428. void EXP vatan_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  429. void EXP vatan(float rv1[], long inc1, float rvo[], long inco, long n);
  430.  
  431. void EXP vatan2_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  432. void EXP vatan2(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  433.  
  434. void EXP vatn2f_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  435. void EXP vatn2f(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  436.  
  437. void EXP vavexp_(float rv1[], long *inc1, float *rs1, float rvo[], long *inco, long *n);
  438. void EXP vavexp(float rv1[], long inc1, float *rs1, float rvo[], long inco, long n);
  439.  
  440. void EXP vavlin_(float rv1[], long *inc1, float *rs1, float rvo[], long *inco, long *n);
  441. void EXP vavlin(float rv1[], long inc1, float *rs1, float rvo[], long inco, long n);
  442.  
  443. void EXP vclip_(float rv1[], long *inc1, float *rs1, float *rs2, float rvo[], long *inco, long *n);
  444. void EXP vclip(float rv1[], long inc1, float *rs1, float *rs2, float rvo[], long inco, long n);
  445.  
  446. void EXP vclr_(float rv1[], long *inc1, long *n);
  447. void EXP vclr(float rv1[], long inc1, long n);
  448.  
  449. void EXP vcmprs_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  450. void EXP vcmprs(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  451.  
  452. void EXP vcos_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  453. void EXP vcos(float rv1[], long inc1, float rvo[], long inco, long n);
  454.  
  455. void EXP vcosf_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  456. void EXP vcosf(float rv1[], long inc1, float rvo[], long inco, long n);
  457.  
  458. void EXP vdbpwr_(float rv1[], long *inc1, float *rs1, float rvo[], long *inco, long *n);
  459. void EXP vdbpwr(float rv1[], long inc1, float *rs1, float rvo[], long inco, long n);
  460.  
  461. void EXP vdiv_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  462. void EXP vdiv(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  463.  
  464. void EXP vdpsp_(double dv1[], long *inc1, float rvo[], long *inco, long *n);
  465. void EXP vdpsp(double dv1[], long inc1, float rvo[], long inco, long n);
  466.  
  467. void EXP veucl2_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  468. void EXP veucl2(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  469.  
  470. void EXP veucl3_(float rv1[], long *inc1, float rv2[], long *inc2, float rv3[], long *inc3, float rvo[], long *inco, long *n);
  471. void EXP veucl3(float rv1[], long inc1, float rv2[], long inc2, float rv3[], long inc3, float rvo[], long inco, long n);
  472.  
  473. void EXP vexp_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  474. void EXP vexp(float rv1[], long inc1, float rvo[], long inco, long n);
  475.  
  476. void EXP vexp10_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  477. void EXP vexp10(float rv1[], long inc1, float rvo[], long inco, long n);
  478.  
  479. void EXP vexp2_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  480. void EXP vexp2(float rv1[], long inc1, float rvo[], long inco, long n);
  481.  
  482. void EXP vfill_(float *rs1, float rvo[], long *inco, long *n);
  483. void EXP vfill(float *rs1, float rvo[], long inco, long n);
  484.  
  485. void EXP vfrac_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  486. void EXP vfrac(float rv1[], long inc1, float rvo[], long inco, long n);
  487.  
  488. void EXP vfracn_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  489. void EXP vfracn(float rv1[], long inc1, float rvo[], long inco, long n);
  490.  
  491. void EXP vgathr_(float rv1[], long iv2[], long *inc2, float rvo[], long *inco, long *n);
  492. void EXP vgathr(float rv1[], long iv2[], long inc2, float rvo[], long inco, long n);
  493.  
  494. void EXP vgen_(float *rs1, float *rs2, float rvo[], long *inco, long *n);
  495. void EXP vgen(float *rs1, float *rs2, float rvo[], long inco, long n);
  496.  
  497. void EXP viadd_(long iv1[], long *inc1, long iv2[], long *inc2, long ivo[], long *inco, long *n);
  498. void EXP viadd(long iv1[], long inc1, long iv2[], long inc2, long ivo[], long inco, long n);
  499.  
  500. void EXP viand_(long iv1[], long *inc1, long iv2[], long *inc2, long ivo[], long *inco, long *n);
  501. void EXP viand(long iv1[], long inc1, long iv2[], long inc2, long ivo[], long inco, long n);
  502.  
  503. void EXP viars_(long iv1[], long *inc1, long *is1, long ivo[], long *inco, long *n);
  504. void EXP viars(long iv1[], long inc1, long is1, long ivo[], long inco, long n);
  505.  
  506. void EXP viclip_(float rv1[], long *inc1, float *rs1, float *rs2, float rvo[], long *inco, long *n);
  507. void EXP viclip(float rv1[], long inc1, float *rs1, float *rs2, float rvo[], long inco, long n);
  508.  
  509. void EXP vils_(long iv1[], long *inc1, long *is1, long ivo[], long *inco, long *n);
  510. void EXP vils(long iv1[], long inc1, long is1, long ivo[], long inco, long n);
  511.  
  512. void EXP vimag_(float cv1[], long *inc1, float rvo[], long *inco, long *n);
  513. void EXP vimag(float cv1[], long inc1, float rvo[], long inco, long n);
  514.  
  515. void EXP vimul_(long iv1[], long *inc1, long iv2[], long *inc2, long ivo[], long *inco, long *n);
  516. void EXP vimul(long iv1[], long inc1, long iv2[], long inc2, long ivo[], long inco, long n);
  517.  
  518. void EXP vindex_(float rv1[], float rv2[], long *inc2, float rvo[], long *inco, long *n);
  519. void EXP vindex(float rv1[], float rv2[], long inc2, float rvo[], long inco, long n);
  520.  
  521. void EXP vineg_(long iv1[], long *inc1, long ivo[], long *inco, long *n);
  522. void EXP vineg(long iv1[], long inc1, long ivo[], long inco, long n);
  523.  
  524. void EXP vintb_(float rv1[], long *inc1, float rv2[], long *inc2, float *rs1, float rvo[], long *inco, long *n);
  525. void EXP vintb(float rv1[], long inc1, float rv2[], long inc2, float *rs1, float rvo[], long inco, long n);
  526.  
  527. void EXP vior_(long iv1[], long *inc1, long iv2[], long *inc2, long ivo[], long *inco, long *n);
  528. void EXP vior(long iv1[], long inc1, long iv2[], long inc2, long ivo[], long inco, long n);
  529.  
  530. void EXP virs_(long iv1[], long *inc1, long *is1, long ivo[], long *inco, long *n);
  531. void EXP virs(long iv1[], long inc1, long is1, long ivo[], long inco, long n);
  532.  
  533. void EXP visub_(long iv1[], long *inc1, long iv2[], long *inc2, long ivo[], long *inco, long *n);
  534. void EXP visub(long iv1[], long inc1, long iv2[], long inc2, long ivo[], long inco, long n);
  535.  
  536. void EXP vixor_(long iv1[], long *inc1, long iv2[], long *inc2, long ivo[], long *inco, long *n);
  537. void EXP vixor(long iv1[], long inc1, long iv2[], long inc2, long ivo[], long inco, long n);
  538.  
  539. void EXP vlim_(float rv1[], long *inc1, float *rs1, float *rs2, float rvo[], long *inco, long *n);
  540. void EXP vlim(float rv1[], long inc1, float *rs1, float *rs2, float rvo[], long inco, long n);
  541.  
  542. void EXP vlint_(float rv1[], long *n1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  543. void EXP vlint(float rv1[], long n1, float rv2[], long inc2, float rvo[], long inco, long n);
  544.  
  545. void EXP vlmerg_(float rv1[], long *inc1, float rv2[], long *inc2, float rv3[], long *inc3, float rvo[], long *inco, long *n);
  546. void EXP vlmerg(float rv1[], long inc1, float rv2[], long inc2, float rv3[], long inc3, float rvo[], long inco, long n);
  547.  
  548. void EXP vlog_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  549. void EXP vlog(float rv1[], long inc1, float rvo[], long inco, long n);
  550.  
  551. void EXP vlog10_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  552. void EXP vlog10(float rv1[], long inc1, float rvo[], long inco, long n);
  553.  
  554. void EXP vlog2_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  555. void EXP vlog2(float rv1[], long inc1, float rvo[], long inco, long n);
  556.  
  557. void EXP vma_(float rv1[], long *inc1, float rv2[], long *inc2, float rv3[], long *inc3, float rvo[], long *inco, long *n);
  558. void EXP vma(float rv1[], long inc1, float rv2[], long inc2, float rv3[], long inc3, float rvo[], long inco, long n);
  559.  
  560. void EXP vmax_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  561. void EXP vmax(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  562.  
  563. void EXP vmaxmg_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  564. void EXP vmaxmg(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  565.  
  566. void EXP vmin_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  567. void EXP vmin(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  568.  
  569. void EXP vminmg_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  570. void EXP vminmg(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  571.  
  572. void EXP vmma_(float rv1[], long *inc1, float rv2[], long *inc2, float rv3[], long *inc3, float rv4[], long *inc4, float rvo[], long *inco, long *n);
  573. void EXP vmma(float rv1[], long inc1, float rv2[], long inc2, float rv3[], long inc3, float rv4[], long inc4, float rvo[], long inco, long n);
  574.  
  575. void EXP vmmsb_(float rv1[], long *inc1, float rv2[], long *inc2, float rv3[], long *inc3, float rv4[], long *inc4, float rvo[], long *inco, long *n);
  576. void EXP vmmsb(float rv1[], long inc1, float rv2[], long inc2, float rv3[], long inc3, float rv4[], long inc4, float rvo[], long inco, long n);
  577.  
  578. void EXP vmov_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  579. void EXP vmov(float rv1[], long inc1, float rvo[], long inco, long n);
  580.  
  581. void EXP vmsa_(float rv1[], long *inc1, float rv2[], long *inc2, float *rs1, float rvo[], long *inco, long *n);
  582. void EXP vmsa(float rv1[], long inc1, float rv2[], long inc2, float *rs1, float rvo[], long inco, long n);
  583.  
  584. void EXP vmsb_(float rv1[], long *inc1, float rv2[], long *inc2, float rv3[], long *inc3, float rvo[], long *inco, long *n);
  585. void EXP vmsb(float rv1[], long inc1, float rv2[], long inc2, float rv3[], long inc3, float rvo[], long inco, long n);
  586.  
  587. void EXP vmul_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  588. void EXP vmul(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  589.  
  590. void EXP vnabs_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  591. void EXP vnabs(float rv1[], long in1c, float rvo[], long inco, long n);
  592.  
  593. void EXP vneg_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  594. void EXP vneg(float rv1[], long inc1, float rvo[], long inco, long n);
  595.  
  596. void EXP vnmsa_(float rv1[], long *inc1, float rv2[], long *inc2, float *rs1, float rvo[], long *inco, long *n);
  597. void EXP vnmsa(float rv1[], long inc1, float rv2[], long inc2, float *rs1, float rvo[], long inco, long n);
  598.  
  599. void EXP vpmerg_(float rv1[], long *inc1, float rv2[], long *inc2, float rv3[], long *inc3, float rvo[], long *inco, long *n);
  600. void EXP vpmerg(float rv1[], long inc1, float rv2[], long inc2, float rv3[], long inc3, float rvo[], long inco, long n);
  601.  
  602. void EXP vpoly_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n, long *n1);
  603. void EXP vpoly(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n, long n1);
  604.  
  605. void EXP vqint_(float rv1[], long *nrv1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  606. void EXP vqint(float rv1[], long nrv1, float rv2[], long inc2, float rvo[], long inco, long n);
  607.  
  608. void EXP vramp_(float *rs1, float *rs2, float rvo[], long *inco, long *n);
  609. void EXP vramp(float *rs1, float *rs2, float rvo[], long inco, long n);
  610.  
  611. void EXP vrand_(long *is1, float rvo[], long *inco, long *n);
  612. void EXP vrand(long *is1, float rvo[], long inco, long n);
  613.  
  614. void EXP vreal_(float cv1[], long *inc1, float rvo[], long *inco, long *n);
  615. void EXP vreal(float cv1[], long inc1, float rvo[], long inco, long n);
  616.  
  617. void EXP vrecip_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  618. void EXP vrecip(float rv1[], long inc1, float rvo[], long inco, long n);
  619.  
  620. void EXP vrsqrt_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  621. void EXP vrsqrt(float rv1[], long inc1, float rvo[], long inco, long n);
  622.  
  623. void EXP vrvrs_(float rv1[], long *inc1, long *n);
  624. void EXP vrvrs(float rv1[], long inc1, long n);
  625.  
  626. void EXP vsadd_(float rv1[], long *inc1, float *rs1, float rvo[], long *inco, long *n);
  627. void EXP vsadd(float rv1[], long inc1, float *rs1, float rvo[], long inco, long n);
  628.  
  629. void EXP vsbm_(float rv1[], long *inc1, float rv2[], long *inc2, float rv3[], long *inc3, float rvo[], long *inco, long *n);
  630. void EXP vsbm(float rv1[], long inc1, float rv2[], long inc2, float rv3[], long inc3, float rvo[], long inco, long n);
  631.  
  632. void EXP vsbsbm_(float rv1[], long *inc1, float rv2[], long *inc2, float rv3[], long *inc3, float rv4[], long *inc4, float rvo[], long *inco, long *n);
  633. void EXP vsbsbm(float rv1[], long inc1, float rv2[], long inc2, float rv3[], long inc3, float rv4[], long inc4, float rvo[], long inco, long n);
  634.  
  635. void EXP vsbsm_(float rv1[], long *inc1, float rv2[], long *inc2, float *rs1, float rvo[], long *inco, long *n);
  636. void EXP vsbsm(float rv1[], long inc1, float rv2[], long inc2, float *rs1, float rvo[], long inco, long n);
  637.  
  638. void EXP vscatr_(float rv1[], long *inc1, long iv2[], long *inc2, float rvo[], long *n);
  639. void EXP vscatr(float rv1[], long inc1, long iv2[], long inc2, float rvo[], long n);
  640.  
  641. void EXP vsdiv_(float rv1[], long *inc1, float *rs1, float rvo[], long *inco, long *n);
  642. void EXP vsdiv(float rv1[], long inc1, float *rs1, float rvo[], long inco, long n);
  643.  
  644. void EXP vsimps_(float rv1[], long *inc1, float rvo[], long *inco, long *n, float *rs1);
  645. void EXP vsimps(float rv1[], long inc1, float rvo[], long inco, long n, float *rs1);
  646.  
  647. void EXP vsin_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  648. void EXP vsin(float rv1[], long inc1, float rvo[], long inco, long n);
  649.  
  650. void EXP vsinf_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  651. void EXP vsinf(float rv1[], long inc1, float rvo[], long inco, long n);
  652.  
  653. void EXP vsinrf_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  654. void EXP vsinrf(float rv1[], long inc1, float rvo[], long inco, long n);
  655.  
  656. void EXP vsm2sa_(float rv1[], long *inc1, float *rs1, float rv2[], long *inc2, float *rs2, float *rs3, float rvo[], long *inco, long *n);
  657. void EXP vsm2sa(float rv1[], long inc1, float *rs1, float rv2[], long inc2, float *rs2, float *rs3, float rvo[], long inco, long n);
  658.  
  659. void EXP vsma_(float rv1[], long *inc1, float *rs1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  660. void EXP vsma(float rv1[], long inc1, float *rs1, float rv2[], long inc2, float rvo[], long inco, long n);
  661.  
  662. void EXP vsma2_(float rv1[], float *rs1, float rv2[], float *rs2, long *inc, float rvo[], long *inco, long *n);
  663. void EXP vsma2(float rv1[], float *rs1, float rv2[], float *rs2, long inc, float rvo[], long inco, long n);
  664.  
  665. void EXP vsma3_(float rv1[], float *rs1, float rv2[], float *rs2, float rv3[], float *rs3, long *inc, float rvo[], long *inco, long *n);
  666. void EXP vsma3(float rv1[], float *rs1, float rv2[], float *rs2, float rv3[], float *rs3, long inc, float rvo[], long inco, long n);
  667.  
  668. void EXP vsma4_(float rv1[], float *rs1, float rv2[], float *rs2, float rv3[], float *rs3, float rv4[], float *rs4, long *inc, float rvo[], long *inco, long *n);
  669. void EXP vsma4(float rv1[], float *rs1, float rv2[], float *rs2, float rv3[], float *rs3, float rv4[], float *rs4, long inc, float rvo[], long inco, long n);
  670.  
  671. void EXP vsmsa_(float rv1[], long *inc1, float *rs1, float *rs2, float rvo[], long *inco, long *n);
  672. void EXP vsmsa(float rv1[], long inc1, float *rs1, float *rs2, float rvo[], long inco, long n);
  673.  
  674. void EXP vsmsb_(float rv1[], long *inc1, float *rs1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  675. void EXP vsmsb(float rv1[], long inc1, float *rs1, float rv2[], long inc2, float rvo[], long inco, long n);
  676.  
  677. void EXP vsmul_(float rv1[], long *inc1, float *rs1, float rvo[], long *inco, long *n);
  678. void EXP vsmul(float rv1[], long inc1, float *rs1, float rvo[], long inco, long n);
  679.  
  680. void EXP vspdp_(float rv1[], long *inc1, double dvo[], long *inco, long *n);
  681. void EXP vspdp(float rv1[], long inc1, double dvo[], long inco, long n);
  682.  
  683. void EXP vsq_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  684. void EXP vsq(float rv1[], long inc1, float rvo[], long inco, long n);
  685.  
  686. void EXP vsqrt_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  687. void EXP vsqrt(float rv1[], long inc1, float rvo[], long inco, long n);
  688.  
  689. void EXP vssq_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  690. void EXP vssq(float rv1[], long inc1, float rvo[], long inco, long n);
  691.  
  692. void EXP vsub_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *n);
  693. void EXP vsub(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long n);
  694.  
  695. void EXP vsum_(float rv1[], long *inc1, float rvo[], long *inco, long *n, float *rs1);
  696. void EXP vsum(float rv1[], long inc1, float rvo[], long inco, long n, float *rs1);
  697.  
  698. void EXP vswap_(float rv1[], long *inc1, float rv2[], long *inc2, long *n);
  699. void EXP vswap(float rv1[], long inc1, float rv2[], long inc2, long n);
  700.  
  701. void EXP vtabi_(float rv1[], long *inc1, float *rs1, float *rs2, float rv2[], float rvo[], long *inco, long *n2, long *n);
  702. void EXP vtabi(float rv1[], long inc1, float *rs1, float *rs2, float rv2[], float rvo[], long inco, long n2, long n);
  703.  
  704. void EXP vtan_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  705. void EXP vtan(float rv1[], long inc1, float rvo[], long inco, long n);
  706.  
  707. void EXP vtanf_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  708. void EXP vtanf(float rv1[], long inc1, float rvo[], long inco, long n);
  709.  
  710. void EXP vthr_(float rv1[], long *inc1, float *rs1, float rvo[], long *inco, long *n);
  711. void EXP vthr(float rv1[], long inc1, float *rs1, float rvo[], long inco, long n);
  712.  
  713. void EXP vthres_(float rv1[], long *inc1, float *rs1, float rvo[], long *inco, long *n);
  714. void EXP vthres(float rv1[], long inc1, float *rs1, float rvo[], long inco, long n);
  715.  
  716. void EXP vtrapz_(float rv1[], long *inc1, float rvo[], long *inco, long *n, float *rs1);
  717. void EXP vtrapz(float rv1[], long inc1, float rvo[], long inco, long n, float *rs1);
  718.  
  719. void EXP vxcs_(float rv1[], float cvo[], long *inco, float *rs1, float *rs2, long *n);
  720. void EXP vxcs(float rv1[], float cvo[], long inco, float *rs1, float *rs2, long n);
  721.  
  722. void EXP vxcsf_(float rv1[], long *inc1, float cvo[], long *inco, float *rs1, float *rs2, long *n);
  723. void EXP vxcsf(float rv1[], long inc1, float cvo[], long inco, float *rs1, float *rs2, long n);
  724.  
  725. void EXP wiener_(long *LR, float R[], float G[], float F[], float A[], long *ISW, long *IERR);
  726. void EXP wiener(long LR, float R[], float G[], float F[], float A[], long ISW, long *IERR);
  727.  
  728. /* Section 3 - Sigma Tech exported Functions */
  729.  
  730. void EXP convrrs_(float rv1[], long *inc1, float rv2[], long *inc2, float  rvo[],
  731.                  long *inco, long *no, long *n2);
  732. void EXP convrrs(float rv1[], long inc1, float rv2[], long inc2, float  rvo[],
  733.                  long inco, long no, long n2);
  734. /*
  735. void EXP convrrs2_(float rv1[], float rv2[], float  rvo[], long *no, long *n2);
  736. */
  737. void EXP convrr_(float rv1[], long *inc1, float rv2[], long *inc2, float  rvo[],
  738.                  long *inco, long *no, long *n2);
  739. void EXP convrr(float rv1[], long inc1, float rv2[], long inc2, float  rvo[],
  740.                 long inco, long no, long n2);
  741.  
  742. long EXP remez(double h[], int numtaps,
  743.            int numband, double bands[], double des[], double weight[],
  744.            int type);
  745.  
  746. long EXP genorder(float fs, float center_freq, float bandwidth, float transition_width,
  747.                  float pass_ripple,float stop_ripple, long *numcoeff);
  748. long EXP genorder_(float *fs, float *center_freq, float *bandwidth, float *transition_width,
  749.                  float *pass_ripple,float *stop_ripple, long *numcoeff);
  750.  
  751. long EXP genfilt(float fs, float center_freq, float bandwidth, float transition_width,
  752.                  float pass_ripple,float stop_ripple, long *numcoeff, double **coeffs, long type);
  753. long EXP genfilt_(float *fs, float *center_freq, float *bandwidth, float *transition_width,
  754.                  float *pass_ripple,float *stop_ripple, long *numcoeff, double **coeffs, long *type);
  755.  
  756. void EXP leveldet_(float rv1[], long *noise, long *gap, long *sig, float *thresh, long *maxsearch,
  757.                    long *det, float *avg, float *siglevel, long *n);
  758. void EXP leveldet(float rv1[], long noise, long gap, long sig, float thresh, long maxsearch,
  759.                    long *det, float *avg, float *siglevel, long n);
  760.  
  761. void EXP dmxmla_(double rm1[], long *incc1, long *incr1, double rm2[], long *incc2, long *incr2, double rmo[], long *incco, long *incro, long *nr, long *nc, long *ncr);
  762. void EXP dmxmla(double rm1[], long incc1, long incr1, double rm2[], long incc2, long incr2, double rmo[], long incco, long incro, long nr, long nc, long ncr);
  763.  
  764. void EXP dmxmls_(double rm1[], long *incc1, long *incr1, double rm2[], long *incc2, long *incr2, double rmo[], long *incco, long *incro, long *nr, long *nc, long *ncr);
  765. void EXP dmxmls(double rm1[], long incc1, long incr1, double rm2[], long incc2, long incr2, double rmo[], long incco, long incro, long nr, long nc, long ncr);
  766.  
  767. void EXP dmxmov_(double rm1[], long *incc1, long *incr1, double rmo[], long *incco, long *incro, long *nr, long *nc);
  768. void EXP dmxmov(double rm1[], long incc1, long incr1, double rmo[], long incco, long incro, long nr, long nc);
  769.  
  770. void EXP dmxmul_(double rm1[], long *incc1, long *incr1, double rm2[], long *incc2, long *incr2, double rmo[], long *incco, long *incro, long *nr, long *nc, long *ncr);
  771. void EXP dmxmul(double rm1[], long incc1, long incr1, double rm2[], long incc2, long incr2, double rmo[], long incco, long incro, long nr, long nc, long ncr);
  772.  
  773. float EXP fastcosf(float in);
  774. float EXP fastsinf(float in);
  775. double EXP fastcos(double in);
  776. double EXP fastsin(double in);
  777.  
  778. float EXP fastabsf(float in);
  779.  
  780. long EXP dbltolr(double x);
  781. long EXP dbltol(double x);
  782. long EXP flttolr(float x);
  783. long EXP flttol(float x);
  784. short EXP flttosr(float x);
  785. short EXP flttos(float x);
  786. unsigned char EXP flttobr(float x);
  787. unsigned char EXP flttob(float x);
  788.  
  789. #ifdef USPL_DEMO
  790. void CheckCall();
  791. #endif
  792.  
  793. #ifdef  __cplusplus
  794. }
  795. #endif
  796.  
  797. #define FASTABS(x) (x>=0.0) ? x: -x
  798. #define FASTNABS(x) (x>=0.0) ? -x: x
  799.  
  800.  
  801. #endif  /* end ifdef EMU_DLL_H */
  802.  
  803.  
  804.  
  805.  
  806.